From: Juanma Barranquero <lekktu@gmail.com>
Date: Sat, 8 May 2004 14:55:36 +0000 (+0000)
Subject: (Fquo): If any argument is float, do the computation in floating point.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~22636
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=5ca94614e114528ee824324b527efcec24cd88d0;p=emacs.git

(Fquo): If any argument is float, do the computation in floating point.
---

diff --git a/src/data.c b/src/data.c
index 6ce9a5d37aa..1a66e52632a 100644
--- a/src/data.c
+++ b/src/data.c
@@ -2698,6 +2698,12 @@ usage: (/ DIVIDEND DIVISOR &rest DIVISORS)  */)
      int nargs;
      Lisp_Object *args;
 {
+  int argnum;
+  if (nargs == 2)
+    return arith_driver (Adiv, nargs, args);
+  for (argnum = 0; argnum < nargs; argnum++)
+    if (FLOATP (args[argnum]))
+      return float_arith_driver (0, 0, Adiv, nargs, args);
   return arith_driver (Adiv, nargs, args);
 }